home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DOS.SWG / 0023_Detect OS2.pas < prev    next >
Pascal/Delphi Source File  |  1993-08-27  |  253b  |  13 lines
  1. {
  2. BJOERN JOENSSON
  3.  
  4. BTW, OS/2 is easy to detect because the major Dos
  5. version # is greater than 10:
  6. }
  7.  
  8. Function DetectOs2 : Boolean;
  9. begin
  10.   { if you use Tpro, then Write Hi(TpDos.DosVersion) }
  11.   DetectOs2 := (Lo(Dos.DosVersion) > 10);
  12. end;
  13.